home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / dsp / dspgroup / macros.arc / LCACAR.ASM < prev    next >
Encoding:
Assembly Source File  |  1983-11-17  |  1.1 KB  |  15 lines
  1.  
  2. *LOAD CONSTANT ADDRESS BY AC IN AC                                              
  3. *     (IN ROM)                                                                  
  4. *                                                                               
  5. LCACAR $MACRO  A,T                                                              
  6.        $IF  T.L=0      ASSIGN TEMP                                              
  7.        $ASG 'XR0' TO T.S                                                        
  8.        $ENDIF                                                                   
  9.        TBLR :T:        READ FROM ROM TO :T:                                     
  10.        $IF  A.L=0                                                               
  11.        LAC  :T:,0      LOAD :T: UNSHIFTED                                       
  12.        $ELSE                                                                    
  13.        LAC  :T:,:A:    LOAD :T: SHIFTED                                         
  14.        $ENDIF                                                                   
  15.        $END